home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
ls 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
916b
|
46 lines
100 REM VERGROESSERN EINES SPRITES
110 REM
120 REM SPRITEDATEN IN BLOCK 128 LADEN
130 REM
140 FOR N=8192 TO 8254:READ Q:POKE N,Q:NEXT
150 DATA 0,160,0,2,168,0,2,145,64
160 DATA 2,85,64,2,85,0,0,84,0
170 DATA 0,208,0,0,240,0,1,124,0
180 DATA 5,255,0,23,255,0,23,255,64
190 DATA 5,255,80,1,252,80,0,168,0
200 DATA 0,170,0,2,250,128,10,194,128
210 DATA 91,2,128,92,6,128,21,69,84
220 REM *****************************
230 REM SPRITE VERWANDELN
240 REM
250 REM VORBEREITUNGEN
260 REM
270 REM FARBEN
280 PRINT"[147]"
290 POKE53280,5:POKE53281,0:POKE53285,8
300 POKE53286,11:POKE53287,7
310 REM
320 POKE53276,1:REM SPRITE 0 MULTICOLOR
330 POKE53248,160:POKE53249,120:REM ANFANGSPOSITION
340 POKE53269,1:REM SPRITE 0 AN
350 REM
360 REM VERWANDELN
370 REM
380 Z=400
390 FORX=1TO20
400 POKE53277,1:POKE53248,150
410 GOSUB520:REM WARTESCHLEIFE
420 POKE53277,0:POKE53248,160
430 GOSUB520:REM WARTESCHLEIFE
440 NEXTX
450 POKE53277,1:POKE53248,150
460 GETT$:IFT$=""THEN460
470 POKE53277,0:POKE53248,160
480 GOTO380
490 REM
500 REM WARTESCHLEIFE
510 REM
520 FORW=1TOZ:NEXTW
530 Z=Z-40
540 RETURN